m-v corrections.

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 20fd68aa959fa84f3c232516e675de33b3ab5a78..549bf4abe63f0d7775e4eeec98b5192fc76306a9 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -79,7 +79,7 @@
       'float-time
     (if (featurep 'xemacs)
        (lambda ()
-         (multiple-value-bind (s0 s1 s2) (current-time)
+         (multiple-value-bind (s0 s1 s2) (values-list (current-time))
            (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
 
 (defalias 'flymake-replace-regexp-in-string